home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_enscript.idb / usr / freeware / share / enscript / hl / awk.st.z / awk.st
Encoding:
Text File  |  2002-04-08  |  1.1 KB  |  54 lines
  1. /**
  2.  * Name: awk
  3.  * Description: AWK programming language.
  4.  * Author: Juergen Kahrs <Juergen.Kahrs@t-online.de>
  5.  */
  6.  
  7. state awk extends HighlightEntry
  8. {
  9.   /* Comments. */
  10.   /#/ {
  11.     comment_face (true);
  12.     language_print ($0);
  13.     call (eat_one_line);
  14.     comment_face (false);
  15.   }
  16.  
  17.   /* String constants. */
  18.   /\"/ {
  19.     string_face (true);
  20.     language_print ($0);
  21.     call (c_string);
  22.     string_face (false);
  23.   }
  24.  
  25.   /* Excutable script. */
  26.   /^#!/ {
  27.     reference_face (true);
  28.     language_print ($0);
  29.     call (eat_one_line);
  30.     reference_face (false);
  31.   }
  32.  
  33.   /* Keywords. */
  34.   /\b(ARG(C|V|IND)|BEGIN|CONVFMT|E(N(D|VIRON)|RRNO)\
  35. |F(I(ELDWIDTHS|LENAME)|NR|S)|IGNORECASE|N[FR]|O(FMT|FS|RS)\
  36. |R(LENGTH|S(TART)?|T)|SUBSEP\
  37. |atan2|break|c(lose|o(ntinue|s))|d(elete|o)|e(lse|x(it|p))\
  38. |f(flush|or|unction)|g(((en)?sub)|etline)|i(f|n(dex|t)?)\
  39. |l(ength|og)|match|next(file)?|return|while|print[f]?\
  40. |rand|s(in|ub(str)?|ystem|p(lit|rintf)|qrt|rand|trftime|ystime)\
  41. |to(lower|upper))\b/ {
  42.     keyword_face (true);
  43.     language_print ($0);
  44.     keyword_face (false);
  45.   }
  46. }
  47.  
  48.  
  49. /*
  50. Local variables:
  51. mode: c
  52. End:
  53. */
  54.